• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro voor beginners: meerdere tabbladen samenvoegen

Status
Niet open voor verdere reacties.
R

rs1981

Nieuwe gebruiker
Lid geworden
27 jan 2011
Berichten
1
Hallo,
Ben geen expert in Macro's maar denk dat ik het toch nodig zal hebben.
In een excel bestand heb ik 23 werkbladen, met dezelfde opmaak vwb de kolommen maar met steeds een andere inhoud op de rijen.
Nu zou ik de rijen van deze 23 werkbladen graag op 1 werkblad onder elkaar willen weergeven.

Is dit mogelijk met een macro?
En zo ja, hoe?

Alvast bedankt voor de hulp!

Groeten,
rs1981
 
Laatst bewerkt:
Zoiets.

Code: 
Sub tst()

Dim j, iWS As Integer
   For iWS = 1 To 23
     For j = 1 To Sheets(iWS).Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets(24).Range("A65536").End(xlUp).Offset(1).EntireRow.Value _
 = Worksheets(iWS).Cells(j, 1).EntireRow.Value
     Next j
   Next iWS
End Sub
Info: Met als je laatste blad in rij de verzamelblad
 
Laatst bewerkt:
de tweede regel van elk tabblad wordt 'vergeten'

Hallo,
Deze macro werkt bij mij bijna perfect.
Alleen wordt van ieder tabblad de 2 rij niet overgehaald naar het samenvoeg tabblad.
(Op de eerste rij staan in ieder tabblad de kolomkoppen).
Weet iemand de oplossing?
Bvd
Richie
 
Topic is van 2011 en mag met rust gelaten worden. Bovendien graag een eigen topic maken.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan